home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / PD_THEMA / CLI / COMMAND / TEST < prev   
Text File  |  1998-03-14  |  5KB  |  338 lines
  1. notext
  2. cls
  3. echo
  4. echo
  5. echo
  6. echo
  7. echo                    Testbatchdatei für COMMAND.PRG
  8. echo                         von Joachim Wolf
  9. echo
  10. echo
  11. echo Diese Datei dient der Überprüfung der meisten(!) Befehle des Kommando-
  12. echo interpreters. Man kann sich aus dieser Datei außerdem Inspirationen
  13. echo für eigene Anwendungen holen.
  14. echo
  15. echo Um ein korrektes Funktionieren zu gewährleisten, muß das
  16. echo 'errorbreak'-Flag gesetzt sein. Sollte dies nicht der Fall sein, haben
  17. echo Sie nun die Möglichkeit, den Test anzuhalten und mit Hilfe des
  18. echo 'errorbreak'-Befehls dies nachzuholen.
  19. echo
  20. echo
  21. ?stop
  22. clear
  23. cls
  24. echo nach Drücken einer Taste muß 5 mal BELL ertönen
  25. echo
  26. wait
  27. text
  28. let bell 5
  29. lbl glocke
  30. bell
  31. -- bell
  32. print bell
  33. if bell <> 0 glocke
  34. notext
  35. echo
  36. echo Bis jetzt vorhandene Variablen:
  37. text
  38. vardump
  39. wait
  40. cls
  41. notext
  42. echo es wird jetzt die Variable zaehler bis 100 hochgezaehlt
  43. wait
  44. cls
  45. text
  46. lbl hundert
  47. print zaehler
  48. ++ zaehler
  49. if zaehler < 101 hundert
  50. notext
  51. echo
  52. ?stop
  53. cls
  54. echo zaehler wird jetzt bis auf Null runtergeteilt
  55. echo
  56. wait
  57. cls
  58. text
  59. lbl teilung
  60. print zaehler
  61. 2/ zaehler
  62. if zaehler > 0 teilung
  63. notext
  64. echo
  65. ?stop
  66. cls
  67. echo zaehler wird auf eins gesetzt und solange verdoppelt
  68. echo bis zaehler > 1000 ist
  69. wait
  70. cls
  71. text
  72. ++ zaehler
  73. lbl tausend
  74. print zaehler
  75. 2* zaehler
  76. if zaehler < 1001 tausend
  77. echo
  78. vardump
  79. notext
  80. echo
  81. ?stop
  82. cls
  83. echo es werden jetzt alle Variablen auf Null gesetzt
  84. wait
  85. text
  86. clear
  87. vardump
  88. notext
  89. ?stop
  90. cls
  91. echo es wird der freie RAM-Speicher und die freie Kapazität des aktuellen
  92. echo Speichermediums angezeigt
  93. text
  94. df
  95. free
  96. echo
  97. echo Test von 'if ='
  98. if bell = 0 weiter
  99. echo if = funktioniert nicht
  100. stop
  101. lbl weiter
  102. echo 'if =' ok
  103. notext
  104. ?stop
  105. cls
  106. echo es wurden bis jetzt folgende Befehle getestet:
  107. echo
  108. echo notext, cls, lbl, clear, echo, wait, ?stop, bell
  109. echo -- , ++ , 2*, 2/
  110. echo if < > <> =
  111. echo df , free
  112. echo print , vardump , let, free, df, goto, srhist, flags
  113. text
  114. flags
  115. ?stop
  116. notext
  117. cls
  118. echo es werden jetzt die Cursor- und Mausbefehle getestet
  119. echo
  120. echo Mausein
  121. mouseon
  122. wait
  123. echo Mausaus
  124. mouseoff
  125. wait
  126. echo Cursor aus
  127. crsoff
  128. wait
  129. echo Cursor ein
  130. crson
  131. ?stop
  132. cls
  133. echo es werden jetzt weitere Variablenbefehle überprüft
  134. echo bell muß am Ende auf 1000 und zaehler auf 0 stehen
  135. echo
  136. wait
  137. cls
  138. text
  139. vardump
  140. += bell 10
  141. += zaehler bell
  142. *= bell 20
  143. *= bell zaehler
  144. /= bell 2
  145. -= zaehler zaehler
  146. notext
  147. echo Endbelegung der Variablen:
  148. vardump
  149. ?stop
  150. cls
  151. echo es wurden jetzt alle Variablenbefehle getestet
  152. echo
  153. echo Test von dir und ls
  154. echo 1. alle Files
  155. echo 2. nur '.prg'-Files
  156. wait
  157. text
  158. dir
  159. dir *.prg
  160. ls
  161. ls *.prg
  162. notext
  163. ?stop
  164. cls
  165. echo ALIAS-Test
  166. alias
  167. echo neues ALIAS 'juhu'
  168. newalias juhu @test
  169. alias
  170. echo löschen des neuen ALIAS
  171. delalias juhu
  172. alias
  173. ?stop
  174. cls
  175. echo inverse + head-Test
  176. echo der ausgegeben Text darf nicht beachtet werden!
  177. wait
  178. inverse
  179. head test
  180. wait
  181. inverse
  182. ?stop
  183. cls
  184. echo 'more' und 'od' werden überprüft (an TEST-file)
  185. wait
  186. more test
  187. od test
  188. ?stop
  189. cls
  190. echo 'cp', 'cmp' und 'rm' werden getestet
  191. wait
  192. echo
  193. text
  194. cp test t.t
  195. cmp test t.t
  196. ls t*.*
  197. rm t.t
  198. ls t*.*
  199. notext
  200. ?stop
  201. cls
  202. echo Test von 'mv'
  203. wait
  204. text
  205. mv test t
  206. ls t*.*
  207. mv t test
  208. ls t*.*
  209. notext
  210. ?stop
  211. cls
  212. echo Überprüfung von 'device', 'version', 'pwd', 'help', 'time' und 'date'
  213. echo
  214. wait
  215. help
  216. time
  217. date
  218. pwd
  219. device
  220. version
  221. echo
  222. ?stop
  223. cls
  224. echo Test 'find' und 'string'
  225. echo bei 'find' müssen alle '.prg'-Files auf dem Laufwerk ausgegeben werden
  226. echo bei 'string' müssen alle Files im Directory ausgegeben werden, die
  227. echo das Wort 'device' enthalten.
  228. wait
  229. cls
  230. find *.prg
  231. string *.* /device/
  232. ?stop
  233. cls
  234. echo test von 'exist' und 'size0'
  235. exist test testok
  236. echo 'exist' fehlerhaft!
  237. stop
  238. lbl testok
  239. echo 'exist' korrekt!
  240. size0 t.t test2ok
  241. echo 'size0' fehlerhaft!
  242. stop
  243. lbl test2ok
  244. echo 'size0' korrekt!
  245. ?stop
  246. cls
  247. echo Teste 'srtab', 'settab', 'keys', 'setlp', 'defkey', 'h' und 'lock'
  248. echo
  249. wait
  250. text
  251. echo teste 'keys'
  252. wait
  253. keys
  254. echo teste 'flags'
  255. wait
  256. flags
  257. echo teste 'setlp -1'
  258. setlp -1
  259. flags
  260. wait
  261. echo teste 'resetlp -1'
  262. resetlp -1
  263. flags
  264. wait
  265. echo teste 'setlp 1 2 3' und 'resetlp 1 2 3'
  266. setlp 1 2 3
  267. resetlp 1 2 3
  268. flags
  269. wait
  270. echo teste 'defkey 1 @test'
  271. defkey 1 @test
  272. keys
  273. wait
  274. echo teste 'h'
  275. h
  276. wait
  277. cls
  278. echo teste 'lock'
  279. echo
  280. lock
  281. wait
  282. cls
  283. echo teste 'srtab'
  284. srtab
  285. flags
  286. wait
  287. echo teste 'settab 5'
  288. settab 5
  289. flags
  290. wait
  291. echo teste 'settab 8'
  292. settab 8
  293. flags
  294. notext
  295. ?stop
  296. cls
  297. echo Test 'wc' mit File 'TEST'
  298. wc test
  299. wait
  300. cls
  301. echo Test des tree-Befehls
  302. wait
  303. tree
  304. wait
  305. cls
  306. echo test von 'cat'
  307. wait
  308. cls
  309. cat test
  310. wait
  311. cls
  312. echo test von 'cleararg', 'inquire', '?arg', 'shiftarg' und 'setarg'
  313. echo
  314. echo 1.inquire-Überprüfung
  315. cleararg
  316. inquire Argumente eingeben
  317. lbl inquire
  318. echo $0
  319. shiftarg
  320. ?arg 0 inquire
  321. wait
  322. echo
  323. echo 2.setarg-Überprüfung
  324. echo es muß "Argument1 Argument2" erscheinen
  325. echo
  326. text
  327. setarg Argument1 Argument2
  328. echo $0 $1
  329. wait
  330. notext
  331. cls
  332. echo Testende erreicht
  333. echo soll nicht abgebrochen werden wird der Befehl 'restart' ausgeführt
  334. echo und der Testdurchlauf neu gestartet
  335. echo
  336. ?stop
  337. restart
  338.